object FAlteraMunicipio: TFAlteraMunicipio
  Left = 350
  Top = 156
  Width = 369
  Height = 353
  BorderIcons = [biSystemMenu]
  Caption = 'Alterando o Municipio da Nota Fiscal'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poMainFormCenter
  Visible = True
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 361
    Height = 113
    Align = alTop
    Caption = '  Localizar Nota  '
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 64
      Width = 83
      Height = 13
      Caption = 'N'#176' Nota Fiscal'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label2: TLabel
      Left = 112
      Top = 64
      Width = 78
      Height = 13
      Caption = 'Data Emiss'#227'o'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label3: TLabel
      Left = 8
      Top = 24
      Width = 49
      Height = 13
      Caption = 'Empresa'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object edNNF: TEdit
      Left = 8
      Top = 80
      Width = 89
      Height = 21
      TabOrder = 0
      OnKeyPress = edNNFKeyPress
    end
    object edDataEmissao: TDateEdit
      Left = 112
      Top = 80
      Width = 97
      Height = 21
      NumGlyphs = 2
      TabOrder = 1
    end
    object DblEmpresa: TDBLookupComboBox
      Left = 8
      Top = 40
      Width = 345
      Height = 21
      KeyField = 'EMP_CODIGO'
      ListField = 'EMP_RAZAO'
      ListSource = dsEmpresa
      TabOrder = 2
    end
    object btnPesquisar: TBitBtn
      Left = 229
      Top = 80
      Width = 123
      Height = 25
      Caption = 'Pesquisar NF'
      TabOrder = 3
      OnClick = btnPesquisarClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333333333333333333333333333FFFFF3333333333CCCCC33
        33333FFFF77777FFFFFFCCCCCC808CCCCCC377777737F777777F008888070888
        8003773FFF7773FFF77F0F0770F7F0770F037F777737F777737F70FFFFF7FFFF
        F07373F3FFF7F3FFF37F70F000F7F000F07337F77737F777373330FFFFF7FFFF
        F03337FF3FF7F3FF37F3370F00F7F00F0733373F7737F77337F3370FFFF7FFFF
        0733337F33373F337333330FFF030FFF03333373FF7373FF7333333000333000
        3333333777333777333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
    end
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 210
    Width = 361
    Height = 105
    Align = alBottom
    Caption = '  Munic'#237'pio  '
    TabOrder = 1
    object Label4: TLabel
      Left = 8
      Top = 16
      Width = 63
      Height = 13
      Caption = 'Munic'#237'pios'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label5: TLabel
      Left = 8
      Top = 56
      Width = 95
      Height = 13
      Caption = 'Munic'#237'pio da NF'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object DBText1: TDBText
      Left = 8
      Top = 72
      Width = 65
      Height = 17
      DataField = 'MU_VCNOME'
      DataSource = dsPesquisa
    end
    object dblMunicipio: TDBLookupComboBox
      Left = 8
      Top = 32
      Width = 345
      Height = 21
      KeyField = 'MU_CODIGO'
      ListField = 'MU_VCNOME'
      ListSource = dsMunicipio
      TabOrder = 0
    end
    object BitBtn1: TBitBtn
      Left = 228
      Top = 72
      Width = 123
      Height = 25
      Caption = 'Alterar o Munic'#237'pio'
      TabOrder = 1
      OnClick = BitBtn1Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003FFFFFFFFFFF
        FFFF33333333333FFFFF3FFFFFFFFF00000F333333333377777F33FFFFFFFF09
        990F33333333337F337F333FFFFFFF09990F33333333337F337F3333FFFFFF09
        990F33333333337FFF7F33333FFFFF00000F3333333333777773333333FFFFFF
        FFFF3333333333333F333333333FFFFF0FFF3333333333337FF333333333FFF0
        00FF33333333333777FF333333333F00000F33FFFFF33777777F300000333000
        0000377777F33777777730EEE033333000FF37F337F3333777F330EEE0333330
        00FF37F337F3333777F330EEE033333000FF37FFF7F333F77733300000333000
        03FF3777773337777333333333333333333F3333333333333333}
      NumGlyphs = 2
    end
  end
  object GroupBox3: TGroupBox
    Left = 0
    Top = 113
    Width = 361
    Height = 97
    Align = alClient
    Caption = '  Informa'#231#245'es da Nota Fiscal  '
    TabOrder = 2
    object Label6: TLabel
      Left = 8
      Top = 16
      Width = 40
      Height = 13
      Caption = 'Cliente'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object DBText2: TDBText
      Left = 8
      Top = 32
      Width = 65
      Height = 17
      DataField = 'CLI_RAZAO'
      DataSource = dsPesquisa
    end
    object Label7: TLabel
      Left = 8
      Top = 48
      Width = 50
      Height = 13
      Caption = 'Valor NF'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object DBText3: TDBText
      Left = 8
      Top = 64
      Width = 73
      Height = 13
      Alignment = taRightJustify
      DataField = 'NF_VALORNOTAFISCAL'
      DataSource = dsPesquisa
    end
    object Label8: TLabel
      Left = 152
      Top = 48
      Width = 47
      Height = 13
      Caption = 'Emiss'#227'o'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object DBText4: TDBText
      Left = 152
      Top = 64
      Width = 100
      Height = 13
      DataField = 'NF_DATAEMISSAO'
      DataSource = dsPesquisa
    end
  end
  object qryPesquisa: TQuery
    Active = True
    DatabaseName = 'base'
    SQL.Strings = (
      'SELECT'
      '  NF_NUMERONF,'
      '  NF_DATAEMISSAO,'
      '  NF_VALORNOTAFISCAL,'
      '  CLI_RAZAO,'
      '  NF_CODIGO,'
      '  MU_VCNOME'
      'FROM'
      '  NOTAFISCALVENDA'
      '  INNER JOIN CLIENTE ON CLI_CODIGO = NF_CLIENTE'
      '  INNER JOIN MUNICIPIO ON NF_MUNICIPIO = MU_CODIGO')
    Left = 200
    Top = 24
    object qryPesquisaNF_NUMERONF: TIntegerField
      FieldName = 'NF_NUMERONF'
    end
    object qryPesquisaNF_DATAEMISSAO: TDateTimeField
      FieldName = 'NF_DATAEMISSAO'
    end
    object qryPesquisaNF_VALORNOTAFISCAL: TFloatField
      FieldName = 'NF_VALORNOTAFISCAL'
      DisplayFormat = '#,##0.00'
    end
    object qryPesquisaCLI_RAZAO: TStringField
      FieldName = 'CLI_RAZAO'
      Size = 60
    end
    object qryPesquisaNF_CODIGO: TIntegerField
      FieldName = 'NF_CODIGO'
    end
    object qryPesquisaMU_VCNOME: TStringField
      FieldName = 'MU_VCNOME'
      Size = 30
    end
  end
  object dsEmpresa: TDataSource
    DataSet = DMGestao.QEmpresa
    Left = 256
    Top = 32
  end
  object dsPesquisa: TDataSource
    DataSet = qryPesquisa
    Left = 144
    Top = 48
  end
  object dsMunicipio: TDataSource
    DataSet = DMGestao.QMunicipio
    Left = 240
    Top = 224
  end
end
